home *** CD-ROM | disk | FTP | other *** search
/ The PC-SIG Library 9 / The PC-SIG Library on CD ROM - Ninth Edition.iso / 301_400 / DISK0322 / DISK0322.ZIP / HAPPYB.BAS < prev    next >
BASIC Source File  |  1983-10-24  |  384b  |  14 lines
  1. 5 FOR X%=1 TO 15:Y$=INKEY$:NEXT X%
  2. 6 IF INKEY$="" THEN 6
  3. 10 PLAY "t120 l4 mfmn"
  4. 20 PLAY "o4 c8 c8 d c f e2"
  5. 30 PLAY "   c8 c8 d c g f2"
  6. 40 PLAY "   c8 c8 o5 c o4 a f e d2"
  7. 50 PLAY "t90 b-8 b-8 a f g f2"
  8. 58 FOR X%=1 TO 15:Y$=INKEY$:NEXT X%
  9. 59 IF INKEY$="" THEN 59
  10. 60 CHAIN "A:PLOTTER
  11.  a f e d2"
  12. 50 PLAY "t90 b-8 b-8 a f g f2"
  13. 58 FOR X%=1 TO 15:Y$=INKEY$:NEXT X%
  14. 59 IF INK